home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 3 / BBS in a box - Trilogy III.iso / Files / System7 tools / T / Texx Folder / Shutdown.exec < prev    next >
Encoding:
Text File  |  1992-08-18  |  727 b   |  23 lines  |  [TEXT/TEXX]
  1. /* Shutdown.exec */
  2. say 'Shutdown.exec';
  3. say 'Date of last change - 08/18/92';
  4. address finder;
  5. if rc = 0 then
  6. do   /* Address successfull */
  7.      /* If MS Word temp files exist, move them to the trash */
  8.      /* Set up a path to the system folder */
  9.      path BootDrive() || 'system folder';
  10.      do i = 1 to 4
  11.           if FileExists( 'Word Temp ' || i ) then
  12.                Move Selection 'Word Temp ' || i 0 0 BootDrive() || 'Trash';
  13.      end;
  14.      /* now empty the trash */
  15.         empty trash;
  16.      if rc <> 0 then
  17.          say 'Profile.exec -- Empty Trash failed';
  18. end;
  19. else   /* Address failed, inform user */
  20.       say 'Shutdown.exec -- Address finder failed';
  21. /* insert other commands here */
  22. say 'End of Shutdown.exec';
  23.